home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #1 / Commodore_Disk_User_Vol.1_1_1987_-.d64 / text enhancer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  3.2 KB  |  112 lines
  1. 5 print"[147]":poke53281,0:poke53280,0
  2. 10 d=10:bd=10:rem values for delays
  3. 15 s=0:rem sound is off
  4. 20 x=0:y=10:rem co-ordinates of start                   of text
  5. 30 a$="welcome to letterprint by steven hammond":rem text goes in a$
  6. 40 p$="bn1d11":rem parameters go in p$
  7. 50 gosub50000:rem call the print routine
  8. 60 gosub1000:rem call delay between                      prints
  9. 70 a$="this is a versatile program"
  10. 80 x=7:y=10:p$="wn0n11":gosub50000:gosub1000
  11. 90 a$="to allow you to print text on the screen"
  12. 100 x=0:y=10:p$="rn0n00":gosub50000:gosub1000
  13. 110 a$="in a variety of manners"
  14. 120 x=8:y=10:d=40:p$="wu0n00":gosub50000
  15. 125 fort=1to1000:nextt
  16. 130 a$="in a variety of manners"
  17. 140 x=8:y=10:d=40:p$="wd0n00":gosub50000:print"[147]":d=10
  18. 150 a$="there are many things to change"
  19. 160 x=5:y=10:p$="gn0n00":gosub50000:gosub1000
  20. 170 a$="such as position on screen"
  21. 180 x=0:y=0:p$="bn0n00":gosub50000:gosub1010
  22. 190 a$="whether printed a bit at a time"
  23. 200 x=0:y=3:p$="bn0n10":gosub50000:gosub1010
  24. 210 a$="with a cursor"
  25. 220 x=0:y=5:p$="bn0n11":gosub50000:gosub1010
  26. 230 a$="with a cursor of your choice"
  27. 240 x=0:y=7:p$="bn0n11[175]":gosub50000:gosub1010
  28. 250 a$="with a line"
  29. 260 x=0:y=9:p$="bn1n11":gosub50000:gosub1010
  30. 270 a$="or a fading line"
  31. 280 x=0:y=12:p$="wn1d11":gosub50000:gosub1010
  32. 290 a$="you can have the text slow"
  33. 300 x=0:y=14:p$="gn0n11":bd=50:gosub50000:gosub1010
  34. 310 a$="or very fast if you like"
  35. 320 x=0:y=16:p$="gn0n11":bd=2:gosub50000:gosub1010
  36. 330 a$="and of course in a choice of colours"
  37. 340 bd=10:x=0:y=18:p$="rd0n00":gosub50000:gosub1000
  38. 350 a$="and with sound should you need it":x=0:y=0:p$="gn0n10":s=1:gosub50000
  39. 360 s=0:gosub1000
  40. 370 a$="demonstration over":x=10:y=10:p$="":gosub50000
  41. 999 goto999
  42. 1000 fort=1to1000:nextt:print"[147]":return
  43. 1010 fort=1to1000:nextt:return
  44. 50000 ifp$=""thenp$="wn1d1n"
  45. 50005 c$=left$(p$,1):f$=mid$(p$,2,1)
  46. 50010 l=val(mid$(p$,3,1))
  47. 50020 ifl=1thenbat=val(mid$(p$,5,1)):lf$=mid$(p$,4,1)
  48. 50030 ifl=0thenbat=val(mid$(p$,5,1)):lf$=mid$(p$,4,1)
  49. 50040 ifbat=1andl=1thencu=val(mid$(p$,6,1))
  50. 50050 ifbat=1andl=0thencu=val(mid$(p$,6,1))
  51. 50070 ifcu=1andl=0thenct$=mid$(p$,7,1)
  52. 50080 ifcu=1andl=1thenct$=mid$(p$,7,1)
  53. 50085 ifct$=""thenct$=" [146]"
  54. 50086 f1$=f$
  55. 50090 ifc$="w"andf$="u"thenco$="[151][152][155]"
  56. 50100 ifc$="w"andf$="d"thenco$="[155][152][151]"
  57. 50105 ifc$="w"andlf$<>"n"theng$="[155][152][151]"
  58. 50110 ifc$="b"andf$="u"thenco$="[154][159]"
  59. 50120 ifc$="b"andf$="d"thenco$="[159][154]"
  60. 50125 ifc$="b"andlf$<>"n"theng$="[159][154]"
  61. 50130 ifc$="g"andf$="u"thenco$="[153]"
  62. 50140 ifc$="g"andf$="d"thenco$="[153]"
  63. 50145 ifc$="g"andlf$<>"n"theng$="[153]"
  64. 50150 ifc$="r"andf$="u"thenco$="[150]"
  65. 50160 ifc$="r"andf$="d"thenco$="[150]"
  66. 50165 ifc$="r"andlf$<>"n"theng$="[150]"
  67. 50170 ifc$="y"andf$="u"thenco$="[129][158]"
  68. 50180 ifc$="y"andf$="d"thenco$="[158][129]"
  69. 50182 f$=f1$
  70. 50185 ifc$="y"andlf$<>"n"theng$="[158][129]"
  71. 50190 k$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  72. 50200 y$=""
  73. 50210 li$=left$(k$,len(a$))
  74. 50212 v$=left$(y$,y)
  75. 50215 ifbat=1then50240
  76. 50220 iff$="n"thengosub50400:gosub50450
  77. 50230 iff$<>"n"thengosub50500
  78. 50240 ifcu=0andbat=1thengosub50600
  79. 50250 ifcu=1andbat=1thengosub50700
  80. 50260 ifl=0thenreturn
  81. 50270 iflf$="u"thengosub51000
  82. 50275 iflf$="d"thengosub50800
  83. 50280 iflf$="n"thengosub50400:gosub50900
  84. 50395 return
  85. 50400 ifc$="w"thenco$="[151]"
  86. 50410 ifc$="b"thenco$=""
  87. 50420 ifc$="g"thenco$=""
  88. 50430 ifc$="r"thenco$=""
  89. 50440 ifc$="y"thenco$=""
  90. 50445 return
  91. 50450 print"";tab(x);v$;co$;a$:return
  92. 50500 fork=1to4:print"";tab(x);v$;mid$(co$,k,1);a$
  93. 50510 fort=1tod:nextt
  94. 50520 nextk:return
  95. 50600 print"";tab(x);v$;:gosub50400:printco$;
  96. 50605 fork=1tolen(a$)
  97. 50610 printmid$(a$,k,1);:fort=1tobd:nextt:ifs=1thengosub51100
  98. 50620 nextk:return
  99. 50700 print"";tab(x);v$;:gosub50400:printco$;
  100. 50705 fork=1tolen(a$)
  101. 50710 printmid$(a$,k,1);ct$;"[157]";:fort=1tobd:nextt
  102. 50720 ifs=1thengosub51100
  103. 50730 nextk:print" ":return
  104. 50800 fork=1to4:print"";tab(x);v$;"";mid$(g$,k,1);li$
  105. 50810 fort=1tod:nextt
  106. 50820 nextk:return
  107. 50900 print"";tab(x);v$;"";li$:return
  108. 51000 fork=4to1step-1:print"";tab(x);v$;"";mid$(g$,k,1);li$
  109. 51010 fort=1tod:nextt
  110. 51020 nextk:return
  111. 51100 poke54296,8:poke54296,0:return
  112.